home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / vpcalc23.zip / FAC.VPC < prev    next >
Text File  |  1991-09-08  |  694b  |  27 lines
  1. @Echo off
  2. Rem Start of Fac.VPC
  3.  
  4. Rem This VPCalc code file tests code file processing by computing N!
  5. Rem To run, start VPCalc.Exe.  At Command: prompt, enter:
  6. Rem     ----->>>>>  N = <n> Run("Fac  <<<<<-----;
  7. Rem where <n> is the value of N for X = N!
  8. Rem Harry Smith, 90/01/06.
  9.  
  10. Rem procedure Fac; {X = N ! = 1*2*3*...*N} uses Temp on the list
  11. begin:
  12.   if N < 0 then "Cannot take factorial of number < zero" GoTo Error
  13.   if N > 2^31 - 1 then "Number too large for factorial function" GoTo Error
  14.   X = 1  Temp = N
  15. Loop:
  16.   if Temp <= 1 GoTo Done
  17.     X = X * Temp
  18.     Temp = Temp - 1;
  19.   GoUpTo Loop;
  20. Done:
  21.   X=
  22.   GoTo End
  23. Error: X = 0
  24. end: "X = N!"
  25.  
  26. Rem End of Fac.VPC
  27.